/***************************************************************************/
/* Procedimiento:  AvisoArriboInsertar
/* Descripcion:   Insertar una fila en la tabla AvisoArribo
/* Parametros:    ?InfoParametros
/*                pTransaccion. Numero identificador de la Transaccion
/*                pMensaje. Mensaje de comfirmacion o excepcion
/* Comentarios:         
/****************************************************************************/

PROCEDURE  AvisoArriboInsertar(pnidDocumento NUMBER, pnidPais_Origen NUMBER, 
						pnidPais_Destino NUMBER, pnidPuerto_Origen NUMBER, pnidPuerto_Destino NUMBER, 
						pTRB NUMBER, peslora NUMBER, pcalado NUMBER, 
						pmanga NUMBER, pTRN NUMBER, pfecha_ETA VARCHAR2, 
						pfecha_ETF VARCHAR2, pnoExisteBuque VARCHAR2, pletraLlamada VARCHAR2, 
						pbandera VARCHAR2, pnidBuque NUMBER, pnidViaje NUMBER, 
						pnidEmpRemolcador NUMBER, pnidEmpPilotos NUMBER, pnidCargaImpo NUMBER, 
						pnidCargaExpo NUMBER, pnidCargaCabEnt NUMBER, pnidCargaCabSal NUMBER, 
						ptonelaje_Expo NUMBER, ptonelaje_Impo NUMBER, ptonelaje_CabEnt NUMBER, 
						ptonelaje_CabSal NUMBER, pdescargaXDia NUMBER, pcargaXDia NUMBER, 
						pdescargaXDiaCabEnt NUMBER, pcargaXDiaCabSal NUMBER, pMMSI VARCHAR2, 
						pfacturar VARCHAR2, pnombre_Buque VARCHAR2, pdescCargaExpo VARCHAR2, 
						pdescCargaImpo VARCHAR2, pdescCargaCabEnt VARCHAR2, pdescCargaCabSal VARCHAR2, 
						pmotivoCancelacion VARCHAR2, pobservaciones VARCHAR2, pcapitan VARCHAR2, 
						, pTransaccion OUT NUMBER, pMensaje OUT VARCHAR2)
AS
BEGIN
  INSERT INTO AvisoArribo(nid, nidDocumento, nidPais_Origen, 
						nidPais_Destino, nidPuerto_Origen, nidPuerto_Destino, 
						TRB, eslora, calado, 
						manga, TRN, fecha_ETA, 
						fecha_ETF, noExisteBuque, letraLlamada, 
						bandera, nidBuque, nidViaje, 
						nidEmpRemolcador, nidEmpPilotos, nidCargaImpo, 
						nidCargaExpo, nidCargaCabEnt, nidCargaCabSal, 
						tonelaje_Expo, tonelaje_Impo, tonelaje_CabEnt, 
						tonelaje_CabSal, descargaXDia, cargaXDia, 
						descargaXDiaCabEnt, cargaXDiaCabSal, MMSI, 
						facturar, nombre_Buque, descCargaExpo, 
						descCargaImpo, descCargaCabEnt, descCargaCabSal, 
						motivoCancelacion, observaciones, capitan, 
						)
  VALUES               (seq_AvisoArribo.nextval, pnidDocumento, pnidPais_Origen, 
						pnidPais_Destino, pnidPuerto_Origen, pnidPuerto_Destino, 
						pTRB, peslora, pcalado, 
						pmanga, pTRN, to_date(pfecha_ETA,'DD/MM/YYYY HH24:MI:SS'), 
						to_date(pfecha_ETF,'DD/MM/YYYY HH24:MI:SS'), pnoExisteBuque, pletraLlamada, 
						pbandera, pnidBuque, pnidViaje, 
						pnidEmpRemolcador, pnidEmpPilotos, pnidCargaImpo, 
						pnidCargaExpo, pnidCargaCabEnt, pnidCargaCabSal, 
						ptonelaje_Expo, ptonelaje_Impo, ptonelaje_CabEnt, 
						ptonelaje_CabSal, pdescargaXDia, pcargaXDia, 
						pdescargaXDiaCabEnt, pcargaXDiaCabSal, pMMSI, 
						pfacturar, pnombre_Buque, pdescCargaExpo, 
						pdescCargaImpo, pdescCargaCabEnt, pdescCargaCabSal, 
						pmotivoCancelacion, pobservaciones, pcapitan, 
						);
  
  COMMIT;
  pTransaccion := 1;
  pMensaje := 'Terminado OK';
  dbms_output.put_line('Terminado OK');

EXCEPTION
  WHEN OTHERS THEN
    pTransaccion := 0;
    pMensaje := 'Error en  AvisoArribo_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm;
    dbms_output.put_line('Error en  AvisoArribo_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm);
END;
